gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_ChkPurview1.asp

    <!--#include file="Inc/clsSetting.asp"-->
<!--#include file="Inc/clsMain.asp"-->
<!--#include file="Inc/clsBehind.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

Dim Netout,FoundErr,ErrMsg,rsChk
Set Netout = New Netout_Photo

if Netout.UserName="" then
	FoundErr = True
	ErrMsg = "<br><li>对不起，您还没有登录！</li>"
else
	if Netout.GetCookie("Upload") = "0" then
		Response.Write("<script>parent.location.href='Index.asp';</script>")
		Response.End()
	else
		Set rsChk = Conn.Execute("select * from NT_User where UserName='"&Netout.UserName&"'")
		if rsChk.eof or rsChk.bof then
			FoundErr = true
			ErrMsg = "<br><li>不要尝试非法侵入！您的每一次操作本系统都将记录在案！</li>"
		end if
		set rsChk = nothing
	end if
end if
if FoundErr = True then
	Behind.WriteErrMsg(ErrMsg)
	Response.End()
end if
Dim IsHttpUrl
If InStr(Lcase(Config.SystemUrl),"localhost") Or InStr(Lcase(Config.SystemUrl),"192.168.") Or InStr(Lcase(Config.SystemUrl),"127.0") Then
	IsHttpUrl = False
Else
	IsHttpUrl = True
End If
%>